/* GUI CONVERTED from rtvoutfm.i (converter v1.75) Sat Aug 12 23:17:02 2000 */
/* rtvoutfm.i - RTS issue form                                          */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/*F0PN*/ /*V8:ConvertMode=Maintenance                                   */
/*K1Q4*/ /*V8:RunMode=Character,Windows                                 */
/*  REVISION: 6.0      LAST MODIFIED: 03/31/91   BY: sas *C299*/
/*  REVISION: 6.0      LAST MODIFIED: 02/15/92   BY: sas *F153*/
/*  REVISION: 7.3      LAST MODIFIED: 09/15/92   BY: sas *G021*/
/*  REVISION: 7.3      LAST MODIFIED: 03/15/93   BY: sas *G774*/
/*  REVISION: 7.3      LAST MODIFIED: 10/21/94   BY: cdt *FS14*/
/*  REVISION: 7.3      LAST MODIFIED: 03/16/95   BY: smp *F0N5*/
/*  REVISION: 7.4      LAST MODIFIED: 04/28/95   BY: dpm *H0CZ*/
/*  REVISION: 8.5      LAST MODIFIED: 03/14/96   BY: *J04C* Sue Poland  */

/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane */
/* REVISION: 8.6E     LAST MODIFIED: 05/20/98   BY: *K1Q4* Alfred Tan   */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan   */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00 BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1      LAST MODIFIED: 07/07/00   BY: *N0F9* Arul Victoria   */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00   BY: *N0KP* myb             */

/* ********** Begin Translatable Strings Definitions ********* */

&SCOPED-DEFINE rtvoutfm_i_1 "Date Shipped"
/* MaxLen: Comment: */

&SCOPED-DEFINE rtvoutfm_i_2 " Item Returned To Supplier "
/* MaxLen: Comment: */

&SCOPED-DEFINE rtvoutfm_i_3 "From Site"
/* MaxLen: Comment: */

&SCOPED-DEFINE rtvoutfm_i_4 "Inv Issue"
/* MaxLen: Comment: */

&SCOPED-DEFINE rtvoutfm_i_5 "From Location"
/* MaxLen: Comment: */

&SCOPED-DEFINE rtvoutfm_i_6 "Link"
/* MaxLen: Comment: */

&SCOPED-DEFINE rtvoutfm_i_7 "Qty Shipped"
/* MaxLen: Comment: */

&SCOPED-DEFINE rtvoutfm_i_8 "RMA Line"
/* MaxLen: Comment: */

&SCOPED-DEFINE rtvoutfm_i_9 "Return Qty"
/* MaxLen: Comment: */

&SCOPED-DEFINE rtvoutfm_i_10 "To Site"
/* MaxLen: Comment: */

&SCOPED-DEFINE rtvoutfm_i_11 "To Location"
/* MaxLen: Comment: */

/* ********** End Translatable Strings Definitions ********* */

     FORM /*GUI*/ 
        line
        part
/*J04C*/    pod_um
        rmd_qty_ord                        label {&rtvoutfm_i_9}
        rmd_price
/*J04C*/    pod_disc_pct
     with frame c width 80 clines down attr-space THREE-D /*GUI*/.


     /* SET EXTERNAL LABELS */
     setFrameLabels(frame c:handle).

     FORM /*GUI*/ 
        
 RECT-FRAME       AT ROW 1.4 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1   COLUMN 3 NO-LABEL
 SKIP(.1)  /*GUI*/
serial                  colon 15
        desc1                   colon 50
        rmd_iss                 colon 15   label {&rtvoutfm_i_4}
        rmd_exp_date            colon 50
        rmd_qty_acp             colon 15   label {&rtvoutfm_i_7}
        rmd_cpl_date            colon 50   label {&rtvoutfm_i_1}
/*F0N5*     from_site               colon 15   label "Site"       */
/*F0N5*/    from_site               colon 15   label {&rtvoutfm_i_3}
        rmd_fault_cd            colon 50
/*F0N5*     from_loc                colon 15   label "Location"   */
/*F0N5*/    from_loc                colon 15   label {&rtvoutfm_i_5}
        rmacmmts                colon 50
/*F0N5*     to_site                 colon 15   label "To site"    */
/*F0N5*/    to_site                 colon 15   label {&rtvoutfm_i_10}
        pod_type                colon 50
        to_loc                  colon 15   label {&rtvoutfm_i_11}
        rmd_rma_nbr             colon 50    label "RMA"
        ext_price               colon 15
        rmd_rma_line            colon 50    label {&rtvoutfm_i_8}
/*FS14*/    /* mfgr                    colon 15    label "Manufacturer" */
/*FS14*/    /* mfgr_part               no-label                         */
        rmd_link                colon 50    label {&rtvoutfm_i_6}

/*H0CZ*  with frame d title color normal "Item Returned to Supplier" */
/*H0CZ*/  SKIP(.4)  /*GUI*/
with frame d 
    side-labels width 80 attr-space  NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-d-title AS CHARACTER.
 F-d-title = (getFrameTitle("ITEM_RETURNED_TO_SUPPLIER",36)).
 RECT-FRAME-LABEL:SCREEN-VALUE in frame d = F-d-title.
 RECT-FRAME-LABEL:WIDTH-PIXELS in frame d =
  FONT-TABLE:GET-TEXT-WIDTH-PIXELS(
  RECT-FRAME-LABEL:SCREEN-VALUE in frame d + " ", RECT-FRAME-LABEL:FONT).
 RECT-FRAME:HEIGHT-PIXELS in frame d =
  FRAME d:HEIGHT-PIXELS - RECT-FRAME:Y in frame d - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME d = FRAME d:WIDTH-CHARS - .5. /*GUI*/


    /* SET EXTERNAL LABELS */
    setFrameLabels(frame d:handle).

/*N0F9* ------------- BEGIN ADD CODE ----------------------- */
        /* DIFFERENT LABELS ARE DISPLAYED FOR SAME VARIABLE, */
        /* SO NEED TO ASSIGN LABELS MANUALLY.                */
    if dynamic-function('getTranslateFramesFlag' in h-label) then
    assign
    rmd_iss:label = getTermLabelRt("INVENTORY_ISSUE",14).
/*N0F9* ------------- END ADD CODE ------------------------- */
